home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 18
/
CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso
/
CUCD
/
Programming
/
EasyTools
/
EASYnumber
< prev
next >
Wrap
Text File
|
1996-12-13
|
2KB
|
105 lines
/*
$VER: EASYnumber 1.0 (15.08.95) by David De Groot
Get your 'winning' numbers with ease! ;-)
This script works with 'randomx' in your c: dir
*/
signal on break_c
options failat 21
NL = '0a'x
bool = exists('libs:rexxreqtools.library')
if bool = 0
then say "You need RexxReqTools.library"
else call addlib('rexxreqtools.library',0,-30)
xcheck = exists('c:randomx')
if xcheck = 0
then do
call rtezrequest("RANDOMX is not in C:.",,
"Sorry!","ATTENTION!!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
exit
end
else
/* let's give some intro-info */
call rtezrequest("Random numbers at large!" nl "" nl,
"Easy and quick, every time again," nl "with" nl "EASYnumber!" nl "",,
"Yeah, yeah, get on with it!", "Aha!",,
'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
/* let's begin */
begin:
long = rtgetlong(,"How many numbers would you like?",,,,
'rtgl_min = 1 rtgl_max = 50 rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
if rtresult == 0
then exit
else do
say "
"
do i = 0 to long -1
address command
'randomx 1 42'
say ""
end
say "
Close window when done..."
say "
"
call rtezrequest("Now that was nice," nl "wasn't it?",,
"Absolutely! |_Run again|_Numbers appear mor than once!",,
"David says:", 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
if rtresult == 1
then exit
end
if rtresult == 2
then signal begin
if rtresult == 0
then call rtezrequest("Oh yeah? ;-)" nl "" nl "Well, let me tell you" nl,
"that when numbers seem to appear more than once" nl,
"this is due to the fact that they were choosen" nl,
"RANDOMLY." nl "",,
"_Run again!|_Quit", "David says:",,
'rtez_flags=ezreqf_centertext rt_reqpos=reqpos_centerscr')
if rtresult == 1
then signal begin
else exit
break_c:
call rtezrequest(" You entered a break." nl,
"This quits EASYnumber...!",,
" Right! ", "Heho!", 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
say "
"
exit
/* Futureplans: EVAPORATE! ;-) */